home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
•AdventureLand•
/
Adventures
/
HyperQuest 1.03 •••
/
HyperQuest 1.03 еее
/
card_23588.txt
< prev
next >
Wrap
Text File
|
1990-10-02
|
6KB
|
252 lines
-- card: 23588 from stack: in.03 –µ–µ–µ
-- bmap block id: 3864
-- flags: 0000
-- background id: 2766
-- name:
----- HyperTalk script -----
on openCard
send cardOpened to background
end openCard
on move
global direction,trollDead,chase,blasting,causeOfDeath
if direction = "east" or direction = "up" or direction = "rear" then
go card id 3186
exit move
end if
if direction = "west" or direction = "down" then
put "troll1" into causeOfDeath
go to card id 3409
exit move
end if
pass move
end move
on closeCard
set the cursor to 4
put "" into field 3
end closeCard
on take
global object,carried
-- remember to update carried if you do not pass take
pass take
end take
on drop
global object,dropRoom,carried
-- remember to update carried if you do not pass take
pass drop
end drop
on use
global object,carried,oldRoom,newRoom,useFlag,trollDead,cardID
put false into useFlag
put last word of object into obj
delete first char of obj
delete last char of obj
if obj="knife" then
put "Slash! Hack! Slice!" into field 3
put true into trollDead
put "23588" into oldRoom
put "24153" into newRoom
send roomChange to background
put 24153 into cardID
go to card id 24153
show card button id 18 of card id 7465
put "You slay the troll with your knife. What a mess." into field 3
exit use
end if
-- update carried if use results in loss of object
pass use
end use
-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=5 top=225 right=261 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp
-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=40 top=226 right=262 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp
-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=108 top=226 right=262 bottom=142
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp
-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=176 top=226 right=262 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp
-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=74 top=226 right=262 bottom=108
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp
-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=142 top=226 right=262 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp
-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=51 top=60 right=219 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,takeFlag,direction,cardID,causeOfDeath
if takeFlag then
put false into takeFlag
put "troll2" into causeOfDeath
go to card id 3409
else
put "A mean, ugly, Troll." into field 3
put false into examFlag
end if
end mouseUp
-- part contents for background part 25
----- text -----
Long Stairway
(looking west)
-- part contents for background part 24
----- text -----
You are on a stone stairway leading downward to the west and upward to the east. A cool, dank breeze is whistling up the stairs.
A large, ugly troll blocks your path, flexing his razor sharp claws. The troll snarls, "Go back, or I shall kill you, puny human!"
-- part contents for background part 36
----- text -----
1